home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / devnag.zip / DNMACS.TEX < prev    next >
Text File  |  1991-05-09  |  4KB  |  108 lines
  1. %    DNMACS.TEX
  2. %    TeX macros for the use of Devanagari fonts
  3. % 
  4. %    Copyright (C) 1991  University of Groningen, The Netherlands
  5. %
  6. %    Author:   Frans J. Velthuis
  7. %    Internet: velthuis@rc.rug.nl
  8. %    Bitnet:   velthuis@hgrrug5
  9. %
  10. %    This program is free software; you can redistribute it and/or modify
  11. %    it under the terms of the GNU General Public License as published by
  12. %    the Free Software Foundation; either version 1, or (at your option)
  13. %    any later version.
  14. %
  15. %    This program is distributed in the hope that it will be useful,
  16. %    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. %    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. %    GNU General Public License for more details.
  19. %
  20. %    You should have received a copy of the GNU General Public License
  21. %    along with this program; if not, write to the Free Software
  22. %    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23. %
  24. \font\smalldn=dvng8
  25. \font\ninedn=dvng9
  26. \font\dvng=dvng10
  27. \font\halfdn=dvng10 scaled\magstephalf
  28. \font\bigdn=dvng10 scaled\magstep1
  29. \font\largedn=dvng10 scaled\magstep2
  30. \font\hugedn=dvng10 scaled\magstep3
  31. \hyphenchar\smalldn=-1
  32. \hyphenchar\ninedn=-1
  33. \hyphenchar\dvng=-1
  34. \hyphenchar\halfdn=-1
  35. \hyphenchar\bigdn=-1
  36. \hyphenchar\largedn=-1
  37. \hyphenchar\hugedn=-1
  38. \font\smallcr=cmr8
  39. \font\ninecr=cmr9
  40. \font\halfcr=cmr10 scaled\magstephalf
  41. \font\bigcr=cmr10 scaled\magstep1
  42. \font\largecr=cmr10 scaled\magstep2
  43. \font\hugecr=cmr10 scaled\magstep3
  44. \let\rsize=\rm
  45. \newcount\chnum
  46. \newdimen\itdim
  47. \newdimen\dnblskip
  48. \newif\ifdnmode
  49. \chnum=0
  50. \loop\catcode\chnum=11
  51. \ifnum\chnum<12\advance\chnum by1
  52. \repeat
  53. \chnum=14
  54. \loop\catcode\chnum=11
  55. \ifnum\chnum<31\advance\chnum by1
  56. \repeat
  57. \catcode127=11
  58. \def\subscr#1{\/\itdim=\lastkern
  59. \unkern\kern-\itdim \lower\dp0 \hbox to\itdim{#1\hfil}}
  60. \def\dnsmall{\let\pdn=\smalldn\let\rsize=\smallcr%
  61. \dnblskip=12pt\ifdnmode\dn\fi}
  62. \def\dnnine{\let\pdn=\ninedn\let\rsize=\ninecr%
  63. \dnblskip=13pt\ifdnmode\dn\fi}
  64. \def\dnnormal{\let\pdn=\dvng\let\rsize=\rm%
  65. \dnblskip=15pt\ifdnmode\dn\fi}
  66. \def\dnhalf{\let\pdn=\halfdn\let\rsize=\halfcr%
  67. \dnblskip=16pt\ifdnmode\dn\fi}
  68. \def\dnbig{\let\pdn=\bigdn\let\rsize=\bigcr%
  69. \dnblskip=18pt\ifdnmode\dn\fi}
  70. \def\dnlarge{\let\pdn=\largedn\let\rsize=\largecr%
  71. \dnblskip=22pt\ifdnmode\dn\fi}
  72. \def\dnhuge{\let\pdn=\hugedn\let\rsize=\hugecr%
  73. \dnblskip=26pt\ifdnmode\dn\fi}
  74. \def\dn{\dnmodetrue\pdn\baselineskip=\dnblskip
  75. \tolerance=10000
  76. \pretolerance=10000}
  77. \def\0{\llap{\char13}}
  78. \def\1{\llap{\char32}}
  79. \def\2{\llap{\char92}}
  80. \def\3#1w{{\char"#1}}
  81. \def\4{\llap{\char123}}
  82. \def\5{\llap{\char125}}
  83. \def\6#1{\setbox0=\hbox{#1}#1\subscr{\char126}}
  84. \def\7#1{\setbox0=\hbox{#1}#1\subscr{\char0}}
  85. \def\8#1{\setbox0=\hbox{#1}#1\subscr{\char1}}
  86. \def\9#1{\setbox0=\hbox{#1}#1\subscr{\char2}}
  87. \def\qa#1#2{\setbox0=\hbox{#1}#1\subscr{\char253\kern1.5ex\lower1.25ex
  88. \hbox{\char#2}\kern-1.5ex}}
  89. \def\qb#1{\setbox0=\hbox{#1}#1\subscr{\char253}}
  90. \def\qq#1{\setbox0=\hbox{#1}#1\subscr{\char94}}
  91. \def\qx#1{\setbox0=\hbox{#1}#1\subscr{\char14}}
  92. \def\qy#1{\setbox0=\hbox{#1}#1\subscr{\char31}}
  93. \def\qz#1{\setbox0=\hbox{#1}#1\subscr{\char124}}
  94. \def\qva{\kern0.5ex\2\kern-0.5ex}
  95. \def\qvb{\kern1ex\0\kern-1ex}
  96. \def\qvc{\kern1ex\rdt\kern-1ex}
  97. \def\?{\llap{\char3}}
  98. \def\<{\llap{\char4}}
  99. \def\rs{\rsize\thinspace}
  100. \let\re=\thinspace
  101. \def\rdt{\llap{\char19}}
  102. \def\dnnum{\let\nstyle=d}
  103. \def\cmnum{\let\nstyle=r}
  104. \cmnum
  105. \def\rn#1{\if\nstyle r{\rsize #1}\else#1\fi}
  106. \let\pdn=\dvng
  107. \dnblskip=15pt
  108.